

-- starting - "Corin is bemusing his fate and then goes home."

--







function autoexec()
  set_desc(0)
  return
end


function entity_handler(en)
  return
end


function postexec()
  if (get_skip_intro() == 1) then
    LOC_choose_hero()
    return
  end

  set_autoparty(1)
  set_vfollow(1)

  LOC_storyline(CORIN)

  LOC_choose_hero()
end


function zone_handler(zn)
  return
end


function LOC_choose_hero()
  local ptr = 0
  ptr = CORIN
  add_chr(ptr)
  set_all_equip(ptr, 20, 0, 0, 60, 0, 0)
  change_map("starting2", "enter_corin")

-- We are no longer using this
--
end
function LOC_storyline(en)
  local a, b
  add_chr(en)
  if (en == CORIN) then
    set_ent_facing(HERO1, FACE_LEFT)
    warp("start_corin", 4)
    thought(255, "On a large island there were two kingdoms who were constant rivals. Diduma and Akanthos. After a horrific war Akanthos exerted its dominance over Diduma by capturing their King and conquering their land. This leads us to a young man by the name of Corin deep in the conquered Kingdom of Diduma...")
    wait(70)
    bubble(HERO1, "sigh...")
    wait(300)
    bubble(HERO1, "$0:",
                  "Oh, I better get back.")
    bubble(HERO1, "Mother will surely have something that needs to be done.")
    set_ent_speed(HERO1, 4)
    set_ent_script(HERO1, "D1R3D5R3D4R6D2R18")
    wait_for_entity(HERO1, HERO1)
  end
 -- set_autoparty(0)
 -- remove_chr(en)
 -- return
end
